home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Tool Chest / Dev.CD Feb 97 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / MenuScripter / MenuScripter.rsrc / SCPT_4260_Style - Underline.txt < prev    next >
Encoding:
Text File  |  1996-07-09  |  377 b   |  11 lines
  1. # (decoded with TMPL 128)
  2. Text: 'tell application "MenuScripter"
  3. copy selection of document 1 to usersel
  4. copy style of usersel to selstyle
  5. if on styles of selstyle contains underline then
  6. set x to {class:text style info, on styles:{}, off styles:{underline}}
  7. else
  8. set x to {class:text style info, on styles:{underline}, off styles:{}}
  9. end if
  10. set style of usersel to x
  11. end tell'